home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0908.lha / MegaView / Install MegaView < prev    next >
Text File  |  1993-08-28  |  3KB  |  130 lines
  1. (if (> @user-level 0)   ; print a little welcome
  2.     (message "This utility installs MegaView onto your harddisk.\n"
  3.              "Since you are an advanced user, you will "
  4.              "be asked a place to copy the MegaView Program to.\n"
  5.              "The sample FileActions file will be installed into your"
  6.              " S: directory\n"
  7.              "You will also get the chance to choose where the doc file "
  8.              "should go to.\n")
  9. )
  10.  
  11. (set @default-dest 
  12.     (askdir (prompt "Select a directory to copy MegaView to")
  13.             (help @askdir-help)
  14.             (default "SYS:Utilities/")
  15.             (newpath)
  16.     )
  17. )
  18.  
  19. (if (= @pretend 0)
  20.     (copyfiles  
  21.         (source "MegaView")
  22.         (dest   @default-dest)
  23.         (infos)
  24.     )
  25. ) 
  26.  
  27. (set samedir 
  28.         (askchoice
  29.                 (prompt "What shall I do next?")
  30.                 (help @askchoice-help)
  31.                 (choices "Install Doc File in same directory"
  32.                          "Install Doc File in other directory"
  33.                          "Don't install the doc file")
  34.                 (default 0)
  35.         )    
  36. )
  37.  
  38. (select samedir
  39.     (set pdir @default-dest)
  40.     (set pdir 
  41.         (askdir (prompt "Select a directory to copy the docfile to")
  42.                 (help @askdir-help)
  43.                 (default @default-dest)
  44.                 (newpath)
  45.         )
  46.     )  
  47.     (set pdir "NIL:")
  48. )
  49.  
  50. (if (<> pdir "NIL:")
  51.     (if (= @pretend 0)
  52.         (copyfiles
  53.             (source "MegaView.guide")
  54.             (dest   pdir)
  55.             (infos)
  56.         )
  57.     )
  58. )
  59.  
  60. (if (= @pretend 0)
  61.     (copyfiles
  62.         (source "FileActions")
  63.         (dest   "S:")
  64.     )
  65. )
  66.  
  67. (set vernum (getversion "libs:whatis.library"))
  68. (set thisver (getversion "libs/whatis.library"))
  69. (set yn 0)
  70. (if (< vernum thisver)
  71.     (set yn 
  72.         (askbool
  73.             (prompt "You have an old version of whatis.library or none at all. You will need whatis.library 3.5. Do you want to install the new version?")
  74.             (help @askbool-help)
  75.             (default 1)
  76.         )
  77.     )
  78. )
  79.  
  80. (if (= yn 1)
  81.     (if (= @pretend 0)
  82.        (copyfiles  
  83.             (source "libs/whatis.library")
  84.             (dest   "libs:whatis.library")
  85.         )
  86.     )
  87. )
  88.  
  89. (set yn 0)
  90. (set there (exists "S:FileTypes" (noreq)))
  91. (if (= there 0) 
  92.     (set yn 
  93.         (askbool
  94.             (prompt "Whatis.library needs the file S:FileTypes. You have none installed. Do you want to install the sample version?")
  95.             (help @askbool-help)
  96.             (default 1)
  97.         )
  98.     )
  99. )
  100.  
  101. (if (= yn 1)
  102.     (copyfiles
  103.         (source "FileTypes")
  104.         (dest "S:FileTypes")
  105.     )
  106. )    
  107.  
  108. (set yn 
  109.     (askbool
  110.         (prompt "Do you want to install the whatis.library doc file")
  111.         (help @askbool-help)
  112.         (default 1)
  113.     )
  114. )
  115.  
  116. (if (= yn 1)
  117.     ((set pdir 
  118.         (askdir (prompt "Select a directory to copy the docfile to")
  119.                 (help @askdir-help)
  120.                 (default @default-dest)
  121.                 (newpath)
  122.         )
  123.     )
  124.     (copyfiles
  125.         (source "Whatislibrary.doc")
  126.         (dest   pdir)
  127.     ))
  128. )
  129.  
  130.